home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 July / EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso / recent / aminet2.lha / AminetRct2 < prev    next >
Text File  |  1998-06-23  |  3KB  |  122 lines
  1.  
  2. INFO SCREEN
  3. IF result ~= "RESULT" THEN
  4.     pubscreen = "rt_pubscreen="result
  5. ELSE
  6.     pubscreen = ""
  7. 'GETFOLDERINFO MAX'
  8. entries=result
  9. IF entries=0 THEN
  10.     DO
  11.         test=RTEZREQUEST(MSG_NOMAIL,"_Ok",,pubscreen)
  12.         EXIT
  13.     END
  14.  
  15. lfi = 0
  16. t = 0
  17. checkn = 0
  18. filename. = ''
  19. 'GETMAILINFO SUBJECT'
  20. sub = LEFT(RESULT,15)
  21. IF sub = today | sub = weekly THEN
  22.     DO
  23.         test=RTEZREQUEST(MSG_LISTFILES,MSG_LISTFILES_GAD,,pubscreen)
  24.         lfi = rtresult
  25.     END
  26. IF lfi THEN
  27.     DO
  28.         t = 1
  29.         'GETMAILINFO FILE'
  30.         filename.1 = RESULT
  31.     END
  32. ELSE
  33.     DO
  34.         test=RTEZREQUEST(MSG_ASKCHECK,MSG_ASKCHECK_GAD,,pubscreen)
  35.         checkn = rtresult
  36.         IF checkn = 0 THEN EXIT
  37.         IF checkn = 1 | checkn = 3 THEN check = today
  38.         IF checkn = 2 | checkn = 4 THEN check = weekly
  39.         DO n = entries-1 TO 0 BY -1
  40.             'SETMAIL' n
  41.             'GETMAILINFO SUBJECT'
  42.             sub = LEFT(RESULT,15)
  43.             IF checkn = 5 THEN
  44.                 DO
  45.                     IF sub = today | sub = weekly THEN
  46.                         DO
  47.                             t = t + 1
  48.                             'GETMAILINFO FILE'
  49.                             filename.t = RESULT
  50.                         END
  51.                     END
  52.             ELSE
  53.                 IF sub = check THEN
  54.                     DO
  55.                         t = t + 1
  56.                         'GETMAILINFO FILE'
  57.                         filename.t = RESULT
  58.                     END
  59.         END
  60.     END
  61.  
  62. IF t = 0 THEN
  63.     DO
  64.         test=RTEZREQUEST(MSG_MAILNOTFOUND,"_Ok",,pubscreen)
  65.         EXIT
  66.     END
  67.  
  68. IF checkn < 3 THEN t = 1
  69.  
  70. DO mail = 1 to t
  71.     line. = ''
  72.     ADDRESS COMMAND 'COPY 'filename.mail' TO T:FTPMail.rct'
  73.     CALL Open('recent','T:FTPMail.rct','R')
  74.  
  75.     DO UNTIL LEFT(READLN('recent'),3) = '|--'
  76.     END
  77.  
  78.     i=0
  79.     DO WHILE ~EOF('recent')
  80.         i=i+1
  81.         line.i=READLN('recent')
  82.         IF LEFT(line.i,1) = '|' THEN BREAK
  83.         IF STRIP(line.i) = '' THEN i=i-1
  84.     END
  85.     CALL Close('recent')
  86.  
  87.     c = 0
  88.     w = i%FILES
  89.     IF i//FILES >0 THEN w = w + 1
  90.  
  91.     DO n = 1 to w
  92.         DO f = n*FILES-(FILES-1) to n*FILES
  93.             PARSE VAR line.f file.f dir.f size.f '+' desc.f
  94.             file.f = LEFT(file.f,18,' ')
  95.             dir.f = LEFT(dir.f,10,' ')
  96.             size.f = RIGHT(size.f,4,' ')
  97.             desc.f = LEFT(desc.f,35,)
  98.         END
  99.  
  100.         reqstr = ''
  101.         DO x = f-FILES to f-1
  102.             y=x
  103.             if y<10 then y=' '||y
  104.             reqstr =  reqstr || y'. 'file.x' 'dir.x' 'size.x' 'desc.x||NL
  105.         END
  106.         input = RTGETSTRING(,reqstr,MSG_FILES,MSG_FILES_GAD,pubscreen)
  107.         SELECT
  108.             WHEN rtresult = 2 THEN BREAK
  109.             WHEN rtresult = 3 THEN cleanup()
  110.             WHEN rtresult = 4 THEN DO
  111.                 n = n - 2
  112.                 IF n < 0 then n = 0
  113.             END
  114.             OTHERWISE DO WHILE input ~= ''
  115.                 c = c+1
  116.                 PARSE VAR input filenum.c input
  117.                 j = filenum.c
  118.                 IF STRIP(file.j) = '' THEN c = c-1
  119.             END
  120.         END
  121.     END
  122.